F 13 


>>> 
>>> 
>>> 
>>>>>> 
>>>>>> 
>>>>>> 
NNW MNNNNYW 
NNN NNNMNYW 
NNW NMNMNMMMYW 
NNN NNW ANN 
Nw NNW NNW 
NNW NNM NNW 
NNW NNN NNW 
NNW NNW NNW 
NNN NNW NW 
NN NNW NWN 
NNW NNW NNW 
NNW NNW NNN 
MNNMMMNWM NNW 
NMYVNNW Mn 
NNNYMNMNM ANM 
aaaaaa 
aaaaaa 
aaaaaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa. aaa 
aacaaaaadaqacaaadcadaacaaaa 
gaQaaaaaaaanaaaaaaaanaaa 
gaqaaqaacagaaacaqgcdaqadcaqaaaqaaaaaa 
mee 
a 
eee 
eee 
ee 
oo 


Ce ne ee eee 
ee 
Re ee eh 


oo 

oo 

a 

od 

eee 

ood 

wus Wu 
rreyreyrY) Wu 
wu wus 
wus wus Wu 
wus wus www 
PPeyrey ry) wus Www 
wu wus wus 
wus wus wus 
wus www Wwusw 
wusw wus wus 
Prey Terry wus wus 
wu wus www 


a a oa a Dt | 
333333333333333333 


33 
35 
P= | 
a Pe | 
a 
oa a 
a at 
a 
pon em | 
=: 
55 


**F ILE**1D**SATSSS26 


wwonono 
wooo 
ovo ow ono 
ono ovo ono 
ono ono ovo 
ono oo ono 
ono oo ono 
ono ono ono 
wwoououwuouououow0on7 
wououwowowouowowovon7 
cucuc oer 
cucucucu wm 
om om num 
wun or num 
oe fe iat) wm 
um wc wm 
wc cucueucy 
om eucucucu 
fava) om 
oc one 
nn MYnnn 
nn AWWmnw 
now mn nn 
own mw nn 
nw mwwnm mw 
mw mw “wn 
mn mw nw 
nw now mn 
MuWWMn uw 
MInw nw 
mown MWwnwn 
mown MMnnw 
nw mw mn 
nn “nw “ww 
nw uw mw 
mn now nw 
un nw nw 
nn mn nn 
MMWMNM mn 
MMWMnm nn 
mn MNnn 
nw MNWwnnw 
nn mn nw 
nn wow non 
nn wn nw 
nw “ow nn 
nn “nw “mw 
nn nn “uw 
AMMWM nn 
NMWWMWwW mn 
me 
od 
me 
poe 
ne ee 
en a ee ee es 
ee 
od 
teh 
aod 
3333333333335 
<«qacatdtaacaacaae 
<<a << 
<< < 
<< <= 
<< <= 
<s << 
<x <<a 
333333333355 
qaiddeteeaaaaacet 
nn WMnnw 
ww NWMWMM 
nn nw nw 
nn ww nn 
nn nn nn 
nw nn wn 
nw mn nn 
nn nn nn 
MNMNWM nw 
Mmnnm nn 


LLLLLLLLLL 
LLLLLLLLLL 


3 
= SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:49:18 VAX/VMS Macro v04-00 Page 0 


SATSSS26 

Table of contents 
(1) DECLARATIONS 
(1) 1 R/W este 
(1) § SATSSS 
(1) 2 AST TESTS 
(1) 406 SETPRA TESTS 
(3) 208 SETIMR TESTS 
(3) 9 CANTIM TESTS 
(4) 44 ROUTINES 
(4) 4 SETUP_SUPER ROUTINE 
(4) 3 AST SERVICE 
(4) 380 SUPER_MODE 
(4) 107 REG_SAVE 
(4) 1094 REG CHECK 
(4) 1141 PRIAT FAIL 
(4) 1188 REG_CRECKNP 
(4) 1265 ERLBUF_DUMP 
(4) 1307 MODE I 
(4) 1329 POWER _CHECK 
(4) 1366 AST_FRIL 
(4) 1399 ILEGAL_TIM 
(4) 1427 STORE_STEP 


alse 


a 


= SATS SYSTEM SERVICE TESTS csuct src.) 19736-1388 90:98:18 AX/VMS 


UETPSY. 
TEILE FAT SS568,° SATS SYSTEM SERVICE TESTS (SUCC S.C.) 


COPYRIGHT (¢) 1378, 1980, 1982, 1984 B 


ALL RI ESERVED 


0 AND OWNERSHIP 


Pe tad ee pi od ht ol 


io Ss 5 —) se 4 4 


SOO OOO OOOSS 
NO AB OOO NID AE WO OND AE WO OD NID AE 0 ONION FE OOO NOU EU 


CORPORATION. 


44 Mi ASSUMES NO nes Freie ws FOR iy USE OR 
SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIE 


> 4 


FACILITY: SATS SYSTEM SERVICE TESTS 


DIGIT LF QU PMENT CORPORATION, MAYHARS. MASSACHUSETTS. 


SRESSatSSso6.maR; 1 Soe dp 


t engeneneceonoconesnecoteeeonenseconcenenecsesnecseecoscconsosencoonenoeenes 


THIS aa I$ F pu HED UNDER A gor such dem LICENSE SED ae ie tee 
GARE ee ANY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT ae vit woyt NOTIC 
A L] NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


QUIPMEN 


RELIABILITY OF ITS 


D BY DIGITAL. 


mR a 


ABSTRACT: he SATSSS26 module tests the execution of the following 
S system services: 
ds UU iN 
fi fi ETASt 
D6 le ark 
0006 TPRA 
BR 
0000 & ENVIRONMENT: peer. fu ervisor, Frecuttye, and Kernal mode image. 
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SATSSS26 SATS acro V04- 
5002888 DECCARAT UETPS eae e ees oo mans 1 


fe 
Sen 


MACRO LIBRARY CALLS 


Pete ee 


| 
.SBTTL DECLARATIONS 


YST 
I0N 
B 
96 PRDEF ; processor re ister definitions 
? PRVDEF : BEL Yaef tai e definitions 
: SchDER F'icone teltatt ious 
$ SSHR_MESSAGES UETP,116,<<TEXT, inkoss* y verse TEXT Jefinicion 
71 SSTSBEF STS definitions 
i SUETPDEF ; UETP message definitions 
7 } : Equated symbols 
00000000 000 76 WA ARNING = 0 ; warning severity value for msgs 
90000001 9000 AS Success — : success yes mag 
44444 00 re ER Grae R = ¢ 3 ne e 2 Sr 
0000000 000 79 INFO = ; information 7 i: RE a 
00000004 4 5 SEVERE 24 ; fatal = = Se 


SATSSS$26 - SAT 
YOu=080 


36 32 53 53 53 54 41 53 8 

53 53 53 54 41 53 vonteotc lity > ty: 
6 

6E 75 67 65 62 89" 

6C 75 66 73 73 65 63 63 75 73 +f 

64 65 6C 69 61 66 00° 


48 4D 43 4C 43 44 00° 


54 53 41 4C 43 44 $0" 
54 53 41 54 45 53 00° 
06 
52 4D 49 54 45 53 00° 
06 
4D 49 54 4E 41 43 00' 
06 
41 52 50 54 45 53 9” 
21 20 74 73 65 54 00000 *010E0000' 
EERE EEER 
2E 64 65 6C 69 61 66 20 4C 55 21 20 
74 65 65 70 7B 45 99000095"91 059000 
EECEEPREELY: 
4C 58 21 20 3D 2 
6 5 10 12 eran 
SETS ECEOEEE: 
e528 2 95 #6 55 svognegzognny 
—E 64 65 72 
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ONDOOCNMOCL OY Pw 


SUMMY : 
TEST_MOD_NAME : 

eASCIC 
TEST_MOD_NAME_D: 

~ASCIB 
TEST_MOD_BEGIN: 

eASCIC 
TEST_MOD_SUCC: 

eASCIC 
TEST_MOD_FAIL: 

ASCIC 
DCLCMH: 

eASCIC 
DCLAST: 

eASCIC 
SETAST: 

ASCIC 
SETIMR: 

ASCIC 
CANTIM: 

ASCIC 
SETPRA: 

ASCIC 
CS1: 

ASCID 
CS2: 

-ASCID 
CS3: 

-ASCID 
CS4: 

-ASCID 
CS5: 
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SEP=19 UETPSY.SRCJSA 


»PSECT RODATA,RD,NOWRT ,NOEXE,LONG 


; dummy handler routine address 
/SATSSS26/ ; needed for SATSMS message 


/SATSSS26/ ; module name 
/begun/ 

/successful/ 

/failed/ 

/OCLCMH/ 

/DCLAST/ 

/SETAST/ 

/SETIMR/ 

/CANTIM/ 

/SETPRA/ 


\Test !AC service name !AC step ‘UL failed.\ 


\Expected 'AS = !XL received 'AS = !XL\ 


\Expected !AS'UB = !XL received !AS'UB = !XL\ 


\Unexpected AST occured.\ 


| 
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slS88 seATEAFTNEY SOMHCE ESTs cout 5.0.0 USHERS ROARSIE RECREATES anys 0 
77 20 65 64 6F $0 g0901}¢" 91059000" 117 -ASCID \Mode was !AS.\ 
if; a io 64 ' 3 if 20 gt 63 18 _ -ASCID \Required AST did not occur.\ 

1 CS7: 
65 70 78 65 6E 55 0000014C'010E000 133 -ASCID \Unexpected timer AST occured.\ 
SPEBRRERE SEN He 
65 70 78 $5 gf 33 9909817) "9105 9008" 138 -ASCID \Unexpected AST!\ 


124 ASTPRM: 
61 70 20 54 53 41 990 99" 8p" 01 06 9009" 5 


-ASCID \AST parameter\ 
72 6 6D 61 ° 


73 75 74 61 74 73 0000019D'010E0000' 
73 65 72 64 64 61 enndinelhinaes it 


-ASCID \status\ 
-ASCID \address\ 


wo 
Pca 
So 
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-—-o 
es 
n“ 


65 64 6F 6D 000001BA'010E0000" -ASCID \mode\ 


MN 3] 2QOCCO TN AAA AMMMIOOOWWWWD Pb F OOWDMDOVROUUE SWIM O 
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1 
i 
1 
1 
1 
1 
! 
72 65 73 75 000001C6'010E0000' : t -ASCID \user\ 
72 65 70 75 73 000001D2"010E0000' 5 ty .ASCID \super\ 
74 75 63 65 78 65 000001DF "01060000" 1 5 : .ASCID \executive\ 
138 KM: 
6C 65 6E 72 65 6B 000001F0'010E0000" 138 -ASCID \kernel\ 
140 ARGLST 
00000001 141 «LONG 1 3; super mode setup arg List 
00000982" 126 -ADDRESS SUPER_MODE 
1435 MSGVEC: ; PUTMSG message vector 
00003 144 . LONG 3 
goreit 411 102 tee ETPS_TEXT 
ttt tee 123 »ADDRESS MESSAGEL 
148 ONE_SEC: 
00989680 149 -LONG 10*1000*1000 3 one second 
150 DELTA_5_SEC: 
FFFFFFFF FDOSOF80O : 1 om ta 8 ah One -10#1000*1000*5,-1 ; 5 second delta time 
FFFFFFFF FD9DA600 138 betta 1 30M -10*1000*1000*4,-1 : 4 second delta time 
FFFFFFFFE FF676980 138 =~ LONG -10*1000*1000,-1 ; 1 second delta time 
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v04 DECLARATIONS Seer S8 BOiSB18 HOETESS See se a yess8e nans1 POO? Of 
: «$O7TL R/w PSECT 
PSEC RWDATA,RD,WRT,NOEXE,LONG 
PID: 
00000000 «LONG 0 ; PID for this process 
CURRENT_TC: 
00000000 -LONG 0 ; ptr to current test case 
PENDING_TC: 
00000000 ; test case prior to AST delivery 


. 0 
-ALIGN LONG 
REG_SAVE te 


00000048 15 ; register save area 
MOD_MSG_ CODE: 
00748009 . «LONG UETPS_SATSMS ; test module message code for putmsg 
00000000" aan ae * ADDRESS TEST_MOD_NAME 
00000019" ~ ,ADDRESS _TEST_MOD_BEGIN 
PRVPRT: 
00 BYTE 0 i protection return byte for SETPRT 
PRIVMASK 
00000000 00000000 -QUAD 0 3; priv. mask 
CHM_CONT: 
00000000 eaten «LONG 0 ; change mode continue address 
00000069 tt " BLKL 2 ; returned address's from SETPRT 
<a: SDCLAST AST2,-8,PSLS$C_USER : DCLAST parameter List 
‘ SSETAST 0 ; SETAST parameter List 
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So 
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oO 
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> PF OOO VACA MWMWMWIN & & F&F FQOOOCOCCOCOCOCOCOONnmN, 
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SSETIMR O,TIME,0,5 
SSETPRA DUMMY+1,PSL$C_KERNEL 
SCANTIM 1,0 


SETIMR parameter List 
SETPRA parameter List 
CANTIM parameter List 


Ssss 


0 4 MODE 
00000000 aa $1 ase -LONG 0 ; current mode string pointer 
74 73 69 67 65 72 00000099"9105 9009" et 39 ; -ASCID \register R\ 
C 98 REGNUM: 
00000000 c3 99 one. -LONG 0 ; register number 
i494 Ft C7 ° -LONG 80 ; buffer desc. 
OOOOO0CE * ace ¢ ams ADDRESS BUF 
0000011F OCF 4 meSSAceL ee” 80 
0008 000 OIF $ “LONG 3; message length 
OOOOOCF* 01 ; ADDRESS BUF 
1 $ SERV_NAM 
00000000 } . | ee 0 ; service name pointer 
FFFFFFFF 128 19 G -1 ; AST 1"s parameter 
12F 12 ASTPAR2 
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- SA 
R/W 


FFFFFFFS 
00 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
eee eg ey 


00000000 
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13 » LONG 
14 ASTOK 
1? -BYTE 
13 
18 PRVHND1: 
1 «LO 
0 HANDLER, ADR: 
§ X_SEC: 

«LONG 
4 TIME: 
5 QUAD 
§ ID 

LONG 
8 WORK: 

«LONE 
0 MSGVEC1: 
1 - LONG 
¢ - LONG 
4 LONG 


-8 
0 


ETP$_TEXT 


onm-cw Oo Oo Oo Oo Oo oO 


=198¢ 80:50:19 EUETPSY. SREISATSSS90.mAR; 


; AST 2's parameter 


AST s legal flag 
BIT = AST's Bre pa a 
BIT AST's are Lega 


; previous handler address 1 


handler address storage 
scratch good up to 7 sec 


time parameter for SETIMR & CANTIM 


timer AST flag 


scratch long word 
PUTMSG message vector 


O00" wee 
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ro voesoe 
SEP- JSATSSS26.MAR; 1 


-PSECT SATSS5¢6 -RD.UAT EXE LONG 
-SBTTL SATSSS 


++ 
FUNCTIONAL DESCRIPTION: 
After performing gone initial housekees ing. such as 
tage des the module begin message and acquiring needed privileges, 
the sys em serv ces are tes 99 n each of their normal conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 
$ RUN SATSSS26... 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSS26. 
They are of the form: 


RUETP-S-SATSMS, TEST MODULE SATSSS 
RUETP=S-SATSMS, TEST MODULE SATSSS 
RUETP-E-SATSMS, TEST MODULE SATSSS 
RUETP=I-TEXT, ... (VARIABLE INFORMATION 

COMPLETION CODES: 


The SATSSS26 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 


none 


UETPSY.SRC 


(DCL COMMAND) 


- (BEGIN MSG) 
UL ... (END MSG) 
-.- (END MSG) 

A TEST MODULE FAILURE) 


TEST_START SATSSS26 ; let the test begin 


SAT S35e6 
v04-00 


0000' CF 
06900000 ' GF 03 
Q0000000'GF 0 


0 
00000000 ' GF 


0050'CF oo 
0048'CF 03 0 


OB1A' CF 


SE 10 
3D soSE 
12A9'CF 00 


00000000" 8F 


01 
0127'CF  0038°CF 


00000000 ' 8F 
OB24'CF 01 


pgppnpOO" 8F 
0B24'°C 01 


Oo 
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iets 
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Hese26 ets 1 $0: 38:18 DE TPS CRE TSAY SSS om. MAR: 1 . (1) 
JENTRY SATSSS26,.0 | 
CLRL — W*CURRENT_TC | 
PUSHL #0 | 
00 PUSHAL W*TPID 
of CALLS #0; »G*SYSSWAKE 
1 CALLS #0,G*SYSSHIBER 
1A PUSHAQ w*fest MOD NAME _ 
33 CALLS GST Ssserr 
BSBW U-hoD MSG 
028 MOVAL WTEST A $5" Succ ue 
8 a hdl # Yecess. 70 ft hs Pas. Cove 
038 _— CALLS #1,W*REG_SAVE 
$b3p 288 SCMKRNL_S W*SETUP_SUPER,W*ARGLST ; declare CHMS handler 
004C 89 poo. “S*#EXESC _UMSTKS2+16, SP ; “adjust the user stack pointer 
O04F 90 MOVL oF : fix the frame pointer 
R236 91 CALLS #0.W*ERLBUF _DUMP ; dump any errors that occured at kernal mod 
005 32 .SBTTL AST TESTS 
0057 93 3+ 
0057 94; 
0057 95 ; test for user AST's 
0057 96 ; 
0057 97 ; ia ae ORDER 
0057 98 ; AST ROUTINE MODE AST PARAM 
0057 99 = ececencecnccssecscesseesccsscce 
0057 00 ; ASTI USER -1 
0057 01; AST2 USER -8 
0057 8 :- 
0057 0 MOVAL W*UM,W*MODE 3 set mode 
4 04 ore W*SETAST, aid _NAME 3 set service name 
006 305 SSETAST_G W*SET 3; disable user AST's 
006E 306 FAIL =CHECK SS$_WASSET ; check for success 
006E PUSHL ~ #SS$_WASSET 
0074 CALLS me REG_CHECK 
0079 307 MOVA W*DCLAST,W*SERV_NAME set service name 
3080 308 $DCL Ast S$ ty a1 rAPSLSC USER’ ; ; declare user AST #1 
009 309 FAIL =CHECK Ss RMAL :check for success 
0093 PUSH % oar Ta} NORMAL 
0099 CALLS #1,W*REG_CHECK 
4444 319 SDCLAST_G wtT 3; declare user AST #2 
Boat 11 Toe Bee sss. “y ; check for success 
as ft SUTREG. Check 
BpBs 13 MOVAL UASETAST ASERV _RAME ; set service name 
Boe 1 MOV ye. #1,W*ASTOK ; set AST's are legal fla 
33 14 SSETAST ; two AST's for user should occur 
0c 15 FAIL. CHECK sss -NORR 3; check for success 
Bar PUSHL pees NORMAL 
CD CALLS #1 »W*REG_ CHECK 
0D 16 ;+ 
0D 17; 
3 3; test for super AST's | 
D 30 ; DECLARED ORDER 
D 1 ; AST ROUTINE MODE AST PARAM 
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$042800 AST TESTS mies Yi $8: 40519 LOE They. Cae ISAy SSS o6. MAR 1 
D ¢ 3 Ce eee ewe we ee ed ee 
D ; AST1 SUPER 5 
4 ¢ g AST2 SUPER - 
oD 6 NEXT_TEST 
D STP1 
0004 'CF 4 dO 4 MOVL #1 ,W*CURRENT_TC 
0 oD D PUSHL 
OBIA'CF 01 FB Q0D9 CALLS #1,W*REG_SAVE 
QOAD ‘CF OICA'CF DE 43 7 MOVAL W*SM,W*MOD 3; set mode 
0127'CF ORF CE bE OE 8 MOVAL W*SETAST,W°SERV_NAME =: set service name 
1353°CF 4 E CLRB W*ASTOK ; AST's are now tthegal 
01 BE OOF 0 CHMS ; test super mode AST's 
OOF 31 3+ 
OOF 3 3 
OOF 33; test for exec AST's 
OOF $0 : 
OOF 5 3 DECLARED ORDER 
Bee $$ ; AST ROUTINE MODE AST PARAM 
OOF 335 3 AST1 EXEC -3 
OOF 39 ; AST2 EXEC -6 
OOF2 340 ;- 
OOF 2 341 NEXT_TEST 
OOF 
Ooes STP2: 
0004 'CF 02 dO OOF MOVL #2,W*CURRENT_TC 
00 DD OOF? PUSHL 
OB1A'CF 01 FB OOF9 CALLS  #1,W*REG_SAVE 
QOAD ' CF 01D7'CF DE OOFE $28 MOVAL W*Er,W*MO 3; set mode 
O127°CF OOSF'CF DE 0105 34 MOVAL W*SETAST,W*SERV_NAME 3; set service name 
0133'CF 94 010C 344 CLRB “ASTOK 3; AST's are now illegal 
0110 345 ODE TO,10$,EXEC .NOREGS 3 set mode to exec 
00 DD O012D 346 PUSHL 3; push a dummy parameter 
OBIA'CF O01 FB big. 347 CALLS #1,W*REG_SAVE 3 save a register snapshot 
0134 $05 SETAST_G W*SE 3; disable exec AST's 
o130 49 FAIL_CHECKNP SS$_WASSET 3 check for success 
00000000'8F DD 01 PUSHL #SS$_WASSET 
122D'CF FB Bi CALLS #1 WEREG CHECKNP 
0127'CF OO38'CF DE 0148 350 MOVAL W*DCLAST,W*SERV_RAME ; set service name 
00 DD O14F 351 PUSHL #0 3 push a dummy parameter 
OBIA'CF O01 FB 0151 26 CALLS #1,W*REG_SAVE 3; save a register snapshot 
8138 5 SDCLAST_S W*AST1,#-3,MPSLSC_EXEC ; declare exec AST # 
16 54 FAIL_CHECKNP SS$_NORMAL ; check for success 
00000000'8F DD 0169 PUSHL $S$_NORMAL 
122D'CF O01 FB B19 CALLS #1,W*®REG_CHECKNP 
0071'CF dg 174 $23 INCL W*DCL+DCLASTS$_ASTPRM 3; set new parameter 
OO75'CF OD 178 56 DECL W*DCL+DCLASTS$_ACMODE ; set to exec mode 
0 DD 017C 57 PUSHL ; push a dummy parameter 
OB1A'CF 1 FB 43 28 CALLS  #1,W*REG_SAVE ; Save a reg snapsho 
1 5 SDCLAST_G W* ; declare exec AST # 
18C 60 FAIL_CHECKNP SS$_NORMAL ; check for success 
99090000" F DD 01 PUSHL ASS$ NORMAL 
122D°CF 1 FB QI CALLS wi Wd REG _CHECKNP . 
O127"CF OO3F'CF ODE 019 36) MOVAL W*SETAST,W*SERV_RAME ; set service name 
00 DD O19E 62 PUSHL #0 3 push a dummy parameter 
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$042600 AST TESTS misty 7 $8: 30519 LUETPSY. SREISATSSS 6.MAR;1 “ (1) 
OBIA'CF ee . 1A 63 CALLS #1,W*REG SAVE 3; save a reg snapshot 
0133'CF 81 9 A$ 64 MOVB #1,W*ASTOK ; AST's ere now egal 
1AA 65 SSETAST_S #1 ; two AST's for exec should occur 
183 66 FAIL_CHECKNP SS$_WASCLR ; check for success 
9090000 "st DD O1B PUSHL #SS$_WASCLR 
122D'CF 1 FB Q1B9 CALLS _#1,W*REG_CHECKNP 
1BE 67 MODE FROM, 10$ ; set mode back 
1BF 68 ;+ 
. 1BF $2 : 
~~ ee Q ; test for kernel AST's 
1BF fi 3 
Bier fs ; DECLARED ORDER 
1BF 75; AST ROUTINE MODE AST PARAM 
01BF 74 Py mS ee ee ee ee Se Be ee Se Ge ee oe me eS ee me eR we 
01BF 73 8 AST1 KRNL -4 
aiee 76; AST2 KRNL =5 
1BF 77 :- 
01BF 6.378 NEXT_TEST 
01BF 
01BF STP3: ot, 
0004'CF 03 DO O1BF MOVL #3,W*CURRENT_TC 
00 DD O1C4 PUSHL 
OBI1A'CF 01 FB 01C6 CALLS #1,W*REG_SAVE 
OOAD ‘CF OIEB'CF ODE 81 ¢8 379 MOVAL W*KM,W*M 3; set mode 
Ol27"CF OO3F'CF DE 01D2 380 MOVAL W*SETAST,W*SERV_NAME  ; set service name 
o1D9 81 MODE  _T0,10$,KRNL,NOREGS ; set mode to kernel 
00 od O1F6 382 PUSHL 3; push a dummy parameter 
OBIA'CF O01 -FB O1F8 $87 CALLS #1,W*REG_SAVE 3 save a reg snapshot 
O1FD 84 SSETAST_G W* ; disable kernel AST's 
0206 385 FAIL_CHECKNP SS$_WASSET ; check for success 
00000000'8F oD 8 06 PUSHL #SS$_WASSET 
122D'CF 01 FB 0c CALLS #1 WEREG CHECKNP 
0127°CF OO38°CF ODE 11 386 MOVAL W*DCLAST,W*SERV_NAME 3 set service name 
00 OD $18 87 PUSHL # 3; push a dummy parameter 
OBIA'CF’ O1 FB 1A 88 CALLS #1,W*REG_SAVE ; Save a reg snapshot 
/ OeiF 89 SDCLAST_S W*AST1,#~-4, #PSLSC_KERNEL 
/ 023 390 FAIL_CHECKNP SS$_NORMA ; check for success 
00000000'8F DD 023 PUSHL #SS$_NORMAL 
122D°CF 01 FB 0 ; CALLS #1,W*REG_CHECKNP 
OO71'CF 06 023D 391 INCL  W*DCL+DCLASTS_ASTPRM  ; set new parameter 
OO75'CF D7? 0241 8 DECL W*DCL+DCLAST$_ACMODE 3; set to kernal mode 
80 DD 0245 .] PUSHL #0 3; push a dummy parameter 
OB1A'CF ee 47 94 CALLS #1,W*REG_SAVE ; Save a register snapshot 
4 95 SDCLAST_G W* 
5 96 FAIL_CHECKNP SS$_NORMAL ; check for success 
0000000°8F DD 025 PUSHL SS$ NORMAL 
122D'°CF 01 FB 5 CALLS @ 4 REG_CHECKNP 
0127°CF OO3F'CF ODE 6 97 MOVAL W*SETAST,W*SERV_RAME ; set service name 
0 oD 8 4 PUSHL : push a dummy parameter 
OB1A'CF 1 eB 9 9 CALLS #1,W*REG SAVE 3; Save a register snapshot 
0133'CF 1 9 of 400 OvB #1,W*ASTOK ; set AST’s are legal flag 
$3) SSETAST_S #1 ; two AST's for kernai should occur 
7C 3=402 FAIL_CHECKNP SS$_WASCLR ; check for success 
99090000'BF pp 0¢7 PUSHL BSS LWASCLR 
122D'CF ' #e CALLS #1,W"REG_CHECKNP 
403 MODE FROM, 1 3; set mode back 
12A9"CF O00 FB 8 404 CALLS #0,W°ERLBUF_DUMP ; dump any errors 
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v04-00 SETPRA TESTS -SEP-1984 04:30:1 UETPSY.SRCJ SATSSS . MAR; 1 
D 4 § -SBTTL SETPRA TESTS 
DOB | 
p 609 : SETPRA tests 
D 411°: test user mode 
5 alg: 
ep 414 * NEXT_TEST 
8D STP4: 
0004'CF 04 dO 8B MOVL #4,W*CURRENT_TC 
QBIA' CE OY PB 994 CALLS #1 ,W*REG, SAVE 
O138'CF OOOO'CF ODE 5 99 415 MOVA W*DUMMY ,W“HANDLER ADR ; set handler address 
O13 ct O1BE'ER «DE SAY 19 a tg te a a a tmode 
O2AE 418 SSETPRA_S av HANDLER ADR, #PSLSC -kenNeL ; test _S & mode maximizing 
0000000°8F pp 0686 419 FAIL oCHECK 558 $s x oe 3; check for success 
0B24'CF 01 FB 02C1 CALLS #1 WFREG. CHECK 
03 OD 0206 420 PUSHL #PSL$C_US ; set expected mode 
1313'°CF 01 FB pste 421 CALLS #1,W*POWER_CHECK 3; check effect 
0138'CF D6 O2CD 4 ¢ INCL y ees D 3 make address unique 
D1 $s SSETPRA_G W*SET ; test _G & mode aextatzteg 
DA 424 FAIL =CHECK SS$_NORM 3 check” far success 
00000000" 8F DD DA PUSHL PSSScN NORM 
0B24'CF 01 FB O2E0 ALLS. #1 W*REG_ Check 
DD O2E5 425 PUSHL #PSLS$C_USE ; set expected mode 
1313°CF 01 FB aeee 4 § CALLS #1 see oe CHECK ; check effects 
0138'CF 06 03F6 2 . a INCL W*HANDLER _ADR 3; make address unique 
O2FO0 429 : 
se 430 ; test super mode 
ae 
0 FO 133 : NEXT_TEST 
8 F STPS: 
0004 'CF 05 pO F MOVL #5,W*CURRENT_TC 
00 DD O2F PUSHL 
OBIA'CF 01 FB O2F CALLS #1 ,W*REG_SAVE 
QOOAD'CF OICA'CF DE OoFC 434 MOVAL W*SM,W*MODE > set mode 
04 =«BE : ; i ~ CHMS a4 ; do the super tests 
437 : 
03 438 ; test exec mode 
mt 
05 441° NEXT_TEST 
303 STP6: 
0004 'CF 0 DO MOVL #6,W*CURRENT_TC 
OBIA'CF 1 Pe ¢ chee § W*REG_ SAVE 
OOAD'CF O1D7"CF DE 0211 443 MOVAL W*EM wnon€ si : set mode 
0318 44 SCMEXEC_S B*10$ > get to exec mode 


2 
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SO S886 SETPRA TESTS §-8 oat 1 4; 3:18 YOETPSY. SRE ISAT TSSS26.MAR; 1 
ce 6° 4 464 SRB 208 
6 445 108: 
0000 8 $28 -WORD 0 
00 oD 44 PUSHL #0 ; — a dummy 
OBIA'CF O11 FB A 448 CALLS #1,W*RE a register snapshot 
F 449 SSETPRA_§ aw SANDLER ADR, #PSLSC abxeC": test _S & mode maximizing 
; C 450 FAIL_CHECK ve 358 ; check for Success 
99090000 et DD PUSH res NORM 
122D'CF 1 FB 4 CALLS #1 oenee CHECKNP 
04 tf $3] 208 RET ; return to user mode 
12A9'CF 0 FB 8 48 38 CALLS #0,W*ERLBUF_DUMP 3; dump any errors 
1 DD 0340 454 PUSHL #PSL$C_EXEC™ : set expected mode 
1313'°CF 1 FB 8 GF 455 CALLS #1,W*POWER_CHECK 3; check effect 
O138'CF 06 54 $28 pact W*HANDLER _ADR ke address unique 
OO99'CF O138'CF DO gaze 45 W*“HANDLER_ADR, W*SET2+SETPRAS. ASTADR ; set new address 
O35F 458 SCMEXEC -§ B*30$ ; go back to exec mode 
m7 6B 459 BRB 40$ 3; skip exec routine 
6D 460 30$: 
0000 6D 461 -WORD 0 
00 DD baer 166 PUSHL #0 ; push a dummy parameter 
OBIA'CF 01 FB 0371 46 CALLS #1, ec eeS- SAVE ; Save a reg snapshot 
Ba7e 464 SSETPRA_G W*SET ; test _G & mode nas tntsine 
37F = 465 FAIL_ CHEE KEP SS$_NORMAL : check for success 
00000000 ' 8F DD Oare PUSHL ¥SS$_NORMA 
122D0'CF 01 FB 8 85 CALLS #1 UFREG. CHE CKNP 
04 O38A 46 RET 3; return to user mode 
tt 467 40S: 
12A9'CF O00 FB Q38B 468 CALLS #0,W*ERLBUF DUMP ; dump any errors 
01 DD 0390 469 PUSHL  #PSL$C_EXEC 3 set expected mode 
1313°CF O01 FB O 36 470 CAL s #1 POWER CHECK 3; check effect 
0138'CF 06 8 id 7) 4 INCL W*HANDLER R_ADR ; make address unique 
0398 £38 3 
8 9B 474 ; test kernal mode 
98 475; 
9B ace : 
38 47 NEXT_TEST 
98 STP?7: 
0004 'CF o? pe + o~ #7,W*CURRENT_TC 
OBIA'CF 84 FB A CALLS #1 ,W*REG_SAVE 
OOAD'CF O1EB'CF DE O3A 478 MGVAL W*KM,W*MODE : set mode 
AE 47 SCMKRNL 5,8 a*{0s : get to kernal mode 
22. «12 Y ? 9 108 BRB ; skip over the routine 
0000 C€ 4 ¢ ~WORD 0 3 entry mask 
OD 4 PUSHL #0 ; push a dummy 
OB1A'CF 1 FB 484 CALLS #1,W*RE ; save @ register snapshot 
485 SETPRA_§ QUT ARNOLER ADR, #PSLSC_KERNEL ; test _S form 
osnet'< a 486 FAIL TEMECENP. $58, NOR OR WORAAL 3 check success 
1998 0e ¥ FB CALLS us surnec CHE CKNP 
04 4 i 208 ; return to user mode 
J « ; dump any errors 
12A9°CF 00 FB E 4 3 CALLS #0,W*ERLBUF DUMP d 


SATSSS26 = SATS SYSTEM SERVICE TESTS isuce s” $.C.) 16-S$ ost 0:49:1 AX/VMS Macro V04- Page 14 | 
5005800 SETPRA TESTS greeks Boisas18 PORCHES Bacto voe~ 0 wr:1 2? ‘a 
0D 49 pyen #PSLS$C_KERNEL : set expected mode 
1313'CF 80 F ER re ak; #1 USBOGER CHECK : check effect 
i Hh D EA 138 Ince W*HANDLER_ADR ke address unique 
0099' CF 138°CF OD FF 49 Sot R-ADR, W*SeT2+SETPRAS ASTADR ; set new address | 
F 494 SCHKRNL return to kernel mode | 
17) 11) O46 495 : skip over kernel routine 
4 4 308: | 
0000 4 49 
4 498 is TPRA,G ETE op ; test _G 
40E 49 FA CHECENP $$ 3 check’ success 
9 000000" : DD 04 F res MAL 
122D'CF FB 041 ches Al $NRN CHECKNP 
04 hh 9 40s ; return to user mode 
12A9'CF FB O4IA ¢ CALLS #0,W*ERLBUF DUMP ; dump any errors 
0 DD OIF PUSHL  #PSL$C_KERNEL ; set expected mode 
1313'CF 1 FB 0421 4 CALLS #1,W*POWER_CHECK i check effect 


tt 3; do it 
4C 4 FAIL “CHECK” $s NORMAL 3; check success 
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v04- SETIMR TESTS -SEP=-1984 04:30:1 UETPSY.SRCISATSSS26.MAR; 1 (2) 
oe é § -SBTTL SETIMR TESTS | 
. | 
4 5 ; 
? 2 44 ; SETIMR tests | 
426 1] ; test EFN #33, real time, ID=6, 6 sec, _S 
426 1 3 | 
426 13 3° 
426 0514 NEXT_TEST 
426 
426 STPB: 
0004 'CF 8 00 426 MOVL * ‘al tall | 
0 oD 428 PUS 
OBIA'CF 1 FB 0420 CALLS  #1,W*REG_SAVE 
OOAD'CF O1BE'CF DE 04 é 515 MOVAL W*UM,W*MODE ; set the mode 
0127'CF O46'CF DE 04 16 MOVAL W* SETIMR, y senv _NAME 3 set the service name 
0440 517 SGETTIM_S TIMADR=TIME 3 get the current time 
O13SC'CF O20E°CF 06 C5 0440 518 MULL3 ~#6,W*ONE SEC,W*X_SEC ; make 6 seconds 
O140'CF O13C'CF CO 0455 519 ADDL. “x sect : add it to the current time 
0144°CF 00 08 O45C 520 DWC #0,0°TIM * ; include the carry bit if any 
0461 521 SSETIMR _S EFN=#33, 
0461 5 ¢ DAYT A=W" 7 IME ,- 
0461 5 REQIDT =#6 ; do it 
047 524 FAIL. nae Ss$ “NOR MAL 3; check for success 
00000000 ' 8F DD 047 PUSHL #SS$_NORMAL 
0B24'CF 01 FB 047 CALLS #1 »W*REG_ CHECK 
047D 525 ;+ 
047D 526; 
0470 7 ; test def EFN, delta time, ID=5, 5 sec, _G 
047D 8 ; 
047D 9 :- 
0470 530 NEXT_TEST 
47D 
47D STP9: 
0004 'CF 09 dO 0470 MOVL #9,W*CURRENT_TC 
00 DD 0482 PUSHL #0 
OBIA'CF 01 FB rtf CALLS #1,W*RE AVE 
0089' CF 0212°CF DE 489 531 MOVAL W*DELTA_5 5_SEC, USENTSSETIMRS DAYTIM ; set 5 sec delta 
499 é § SSETIMR_G W*SETT ~ doit 
499 FAIL_ CHECK SS$_NORMAL : check success 
99090000" 8F DD 0499 PUSHL S$ NOR 
0B24' 01 FB O49F é CALLS #1, W*REG_ are 
4A4 4 3+ 
4A4 5 PY | 
Sab § ; test EFN=4, delta time, ID=4, 4 sec, _S 
4A4 3 
4A4 8 ;- 
4A4 9 NEXT_TEST 
4A4 
4A4 STP10: 
0004 °CF A d0 4A4 MOVL #10, W*CURRENT_TC 
DD O4A9 PUSHL 
OBIA'CF 01 =FB (04 CALLS #1 W*REG_SAVE 
rt $9 SSETIMR_S ages DELTA_ 4_SEC,- 
} 
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$0586 SETIMR eeSTé g-8 ats 90:38: § UETPSY.S Besta Sesoe MAR: 1 ” (3) 
00000000' : DD rt? PUSHL #SS$_NORMAL 
B24'CF FB Q4C CALLS @#@ »W*REG_ CHECK 
a 
4¢C 6 ; test EFN=3, real time, I1D=3, 3 sec, _G 
ae 
ace 3 3 NEXT_TEST 
4CC STP11 
0004 'CF B + act et #11,W*CURRENT_TC 
OB 1A; ; Fe 4D CALLS Ht W*REG_SAVE 
013C'CF Oe CE 3 665) «(04D 50 MULL3 #3,W*°ONE "SEC, W*X7SEC =; make 3 seconds 
0140' ‘ 613 ae 3 Ce 4E 1 SUBL w*k_SEC,Q*TIME ; deduct it from 6 seconds from now 
144'°CF eg 4E 2¢ SBWwC #0 ,Q°TIME+4 : subtract carry if any 
0089'er 0140'CF +3 4E MOVAL w* TIME W*SETI+SETIMRS_ DAYTIM 3; set the time 
6085 CF DO O04F 54 MOVL #3,urSET1+SET IMRS_EFN” ; set the EFN 
O91'CF DO O4F 55 # gverty foe! IMRS_ REQIDT ; set the ID 
4FD 2$ Soe TIMR GW S38. NOR ; do it 
506 55 FAIL_CHECK SS$_NORMA : cheat success 
00000000'8F DD B2R8 PUSHL ~ #SS$_NORMAL 
0B24'CF 01 FB 50C CALLS #1 »W*REG_ CHECK 
$817 889 3 
0511 326 ; test EFN=2, ASTADR, real time, ID=2, 2 sec, _S 
gn ae 
O11 $8 : NEXT_TEST 
0511 STP12 
0004 'CF of ° bai, ao Ag W*CURRENT_TC 
OBI1A'CF 01 F 0318 CALLS 4 m4 S SAVE 
O1460'CF QO20E'CF C 51D 266 SUBL2 W" ONE SEC .W*TIME™ ; make it 2 sec from now 
0144°CF 00 D9 0524 65 SBwC #0,W*TIME+4 ; subtract carry if any 
09 9 66 SSETAST_S #0 : if an error would occur it 
5 6 ; it would take longer to print 
82 re: 3; than 2 sec and would be intr. 
5 § 3 so hold back the intr. 
5 0 SSETIMR_S parte ine .° 
5 71 FN =f 
5 2 ASTADR =W"AST4, - 
é 7 RESE NOR =#2 ; do it 
4 74 FAIL_CHECK SS$_NORMAL 3; check success 
ope tr On FB OSG CALLS | #LWPREG CHECK 
$36 76 SSETAST_S cau ; OK it's safe for intr.'s 
s¢ 
9 77 ; 
; 9 4 ; test EFN=1, ASTADR, delta time, ID=1, 1 sec _G 
335 bao | 
3 3 &: NEXT_TEST 
9 STP13 
0004 'CF 0D dO 9 MOVL #13,W*CURRENT_TC 
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H 4 
+ SERVICE TESTS (SUCC S.C.) so 


PUSH 


MOVL 
MOVAL W*BEL 
MOVAL WAST 


#1,w*SET1 


MOV 
SSETAST_§ Ti) 


USHL 

cALLS 
SSETAST_S # 
BRW 


. 


NORMAL 
#SS$_NORMAL 
#1,W*REG_CHECK 

“NEXT_STEP 


Pa1986 04:40:19 LuETPsY. seeSSatsssoe.man;1 2% 


SAVE 


Brn . ast EFN 
ET1+SETIMRS_DAYTIM ; set time 
IMRS_ASTADR™; set AST address 
REQIDT ; set the ID 

f an error would occur it 

it would take longer to print 
than 1 sec and would be intr. 
so ese back the intr. 


o it 
check success 


AAS 


; OK it's safe to intr. 
; skip the AST routines 


At this time there should be the following TQE's to be serviced 


in the following order: 


FORM TIME 
6 1 SEC 
-? $ SEC 
G SEC 
-? 4 SEC 
m° 5 SEC 
s 6 SEC 


Oulrwn— 


HOW SERVICED 


The next 6 steps will service the TQE's and check the results. 
test servicing of AST TQE started with ID=#1 


. RD 0 
MOVL CURRENT_TC,PENDING_TC ; save interrupted test case number 


AST3: 
NEXT_TEST 
STP14: 
MOVL 
PUSH 
MOVL #1,W*1D 
CMPL 4(AP) #1 
BEQL 1 
PUSHL 4 (AP) 
PUSHL #1 
PUSHAL W*EXP 
10$ CALLS #3,W*PRINT_FAIL 


; #14,W*CURRENT.TC 
CALLS #1,W*REG_SAVE 


set AST id flag 
correct? 

br if yes 

push received 

push expected 

push string variable 
print the error 


eye PENDING_TC,CURRENT_TC ; restore test case number 


return 


aap ey 
| 
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Ee 9 ; test servicing of AST TQE started with ID #2 
E4 i= 
E4 : AST4 
000 ES 634 «WORD 0 
OOOOOOOB'EF  QOO00000G6'EF oD c6 ? 5 MOVL CURRENT_TC,PENDING_TC ; save interrupted test case number 
cH 6 NEXT_TEST 
a8 FI STP15 
0004'CF Oo 44 af) pov. #15,W*CURRENT_TC 
peta et 1 F 318 CALLS #1,W*REG_SAVE 
} bao 1) F 637 CMPL w*1D,#1 ; has the previous AST occured? 
oo: 602 638 BEQL ; br if yes 
O148'CF DD 06 639 PUSHL W*ID 3; push received 
DD 0608 o79 PUSHL #1 3; push expected 
O195°CF DF Q60A 4) PUSHAL W*EXP 3; push the string variable 
0B88' CF 03 FB rf) o¢§ 108 ALLS #3,W*PRINT_FAIL ; print the failure 
0148'CF O02 DO 0613 644 = MOVL  #2,W*ID : set AST ID flag 
02 04 ae if 3. oh taal Sher one 3 ‘s shis the correct one? 
3 br es 
04 A DD O61E $c9 PUSHL  4(AP) 3 push recetved 
0 DD 0621 968 PUSHL # ; push expected 
9195" DF 06 ; 64 PUSHAL W*EXP 3 push string variable 
0B88' CF 3. «CFB ‘ eey 208: CALLS #3,W*PRINT_FAIL ; print the failure 
O0000004"EF  QO0000008'"EF 00 06 3 026 MOVL PENDING_TC,CURRENT_TC ; restore test case number 
04 06 65 RET 3; return 
e338 655 5 
%3 ; $26 > test TQE with ID of 3 
$38 688 | 
6 659 NEXT_STEP: 
660 NEXT_TEST 
6 STP16: 
0004 'CF ie : or S16. U"CURRENT TC 
OBIA'CF 01 FB O65F CALLS _#1,W*REG_SAVE 
44 661 SWAITFR_S EFN=#3 ; wait here for AST3, AST4, & EFN 3 
02 ited » ne oe stor w*10,#2 ; pre yete AST's occur? 
3 br es 
o1s'ce DD 68 664 PUSHL = w*ID : push received | 
02 oD 0658 665 PUSHL #2 3 push expected 
O195°CF OF A 096 PUSHAL W*EXP 3 push string variable 
Opss'cr O03 FB 66 CALLS #3,W*PRINT_FAIL ; print the failure 
66 968 108: 
83 890: | 
6 i ; wait for TOE with ID of 4 | 
73 :- 
67% NEXT_TEST | 
STP17 


4 
SATSSS26 M SERVICE TESTS csuct $.C.) 16-SEP-1984 00:49:1 AX/VMS 0 V04- 
v04 E $7 3E =} $e 80 ‘90; § YuETP SY. Rese aYeesoe.maR:1 
0004 'CF Push 017 .W°CURRENT TC 
OBIA'CF eh #1 ,W*REG_SAVE 
76 SWAITFR_S EFN=#4 ; wait for #4 
77: 
4 : wait for TQE with ID of 5 
680 :- 
oh) NEXT_TEST 
STP18 
0004'CF Push 916.U°CURRENT _TC 
OB1A'CF CAL #1 ,W*REG_SAVE 
6 § SWAITFR_S aie =#0 ; wait for #5 
° fo SCLREF_S EFN=#0 ; get ready for #6 
685 ; 
? $ ; wait for TQE with ID of 6 
8 
690 ° NEXT_TEST 
STP19 
0004 'CF at #19,W*CURRENT_TC 
0B1A' CF rts #1 ,W*REG_SAVE 


CA 
691 SWAITFR_S EFN= #33 ; wait for #6 
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v04 CANTIM TESTS §- ets 8? % 1§ tue 
AB 95 .SBTTL CANTIM TESTS 
AB 888 | 
ss 38 CANTIM tests 
AB 38 : test user mode | 
OAR 300 i 
GAB 04 : NEXT_TEST 
6AB STP20: 
0004'CF 1 v0 6A MOV #20, ,W*CURRENT_TC 
ate $f FB 068 CALLS Ar REG SAVE 
0127' ia O4D'CF DE 068 108 MOVAL at MTIA,W SERV_RAME ; set the service name 
O08} *CF DE 068 £0 MOVAL 1,R2 : set SETIMR param. pointer 
4'CF DE 06C3 704 MOVAL ae 
O¢ A2 6C7 705 lithe TASTADR(R2) : set AST address 
O22e'CF vE 0609 7 $ MOVAL W*DELT 
08 A2 6cD 7 B*SETIMAS~ DAYTIM(R2) ; set one sec delta time 
00 oD O6CF 8 PUSHL #0 : push a dummy parameter 
OBIA'CF 1 FB 06D1 709 CALLS #1,W*REG_SAVE 3; save a register snapshot 
606 710 SSETIMR_G (R2) + make a 
60D 711 SCANTIM"S REQIDT=41 : scrap it 
6—8 712 FAIL_CHECK SS$_NORMAL ; check success 
00000000' 8F DD O6E8 PUSHL  #SS$_NORM 
0B24'CF 01 FB 06E CALLS #1,W*REG_ CHECK 
ge TE 
O6F 715 ; test cancelling 2 TQE'’s in user mode 
ae 
oF 718° NEXT_TEST 
6F STP21: 
0004'CF 15 p0 oF mOVL #21,W*CURRENT_TC 
OBIA'CF O01 F Der CALLS #1,W*REG_SAVE 
0148'CF 01 D _ 719 MOVL #1,W*1D0 ; set the $ proper 1D 
04 720 SSETIMR_G (R3) ; make # 
A 721 SSETIMR_G (R2) ; make 4 TQE 
71 7 ‘ SCANTIM"G W*CAN : try it 
718 «67 FAIL_CHECK SS$_NORMA ; check for success 
08 ocr Ot PB bp at The NORMAL | 
10 A203 «00 0726 «724 MOVL = #3 a APs “REOTOT (RD) ; set ID to 3 | 
720A = 725 SSETIMR_G (R2) > set a TQE for later 
10 A2 01 00 4 1 4 $ 3 MOVL #1,B°SETIMRS_REQIDT(R2) ; reset ID to 1 
7 728 : 
? ? : ; test super mode 
ae 
, 732 ° NEXT_TEST 
7 STP22 
0004'CF 16 D0 07 MOVL #22,W*°CURRENT_TC 
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vee tt CARTIR aggre" penn. are csuct s- es "er3é Pa 1986 8? 36; 1§ HOETPSY. SRedS JSATSSS26.MAR;1 
73A PUSHL #0 
oF Sh 3 re i 733 MOVAL Gosh wamove” eon NE ; set the mode 
oe ses 65 gf iH ¢ CHMS ao : do super mode tests 
74A : 
746A 7 5 ; test cancelling 1 exec TQE 
stn O36 | 
00000018 074A 740° STEP=STEP+2 
oa 741 NEXT_TEST 
‘CF 19:0 ORGA waitin MOV #25, U*CURRENT_TC 
_— 00 DD 74F PUSHL 
OBIA'CF 01 FB 751 CALLS 4 W*REG_SAVE 
QOAD'CF OIW7'CF DE 0756 7% MOVAL W*EM,W*MODE : set the mode 
75D 28 SCMEXEC_S B*10S : get to EXEC mode 
0071 31 0769 744 BRiw M50" 3; skip over EXEC routine 
0000 o7ee 746 Tore ween Toney 
+ M “Ww : R2 
— Sharer 44 rf te MOVAL Be oe Honk R2 F set “SETIMR param pointer 
778 749 SSETIMR_G (R2) ; make a TQE 
77F 750 SCANTIM_ $ ryt a 
77F 751 uty EXEC ; canit 
78A 86752 FAIL ~cwecen ss Bye 3; check for success 
hit hed 6 PB $4 CALLS #1 uREG CHE CKNP 
ores pea i 
079 755 ; test cancelling 2 exec TQE 
roe F28 
198 758 NEXT_TEST 
P26: 
"CF 1A dO 32 sserhee MOVL #26,W*°CURRENT_TC 
—* 00 OD 79A PUSH a 
OBIA'CF 01 FB 79C CALL #1,W*REG_SAVE 
7A1 759 SSETIMR G (R2) ; make a TQE 
7A8 760 SAL ) ; make another 
Ooag'ee " iar ree $ ek US CANSCANTIAG. ACMODE : oes yg 
Bh rer PAIL CHECKNP SS$_NORMAL : check for success 
0000000' DD 078 “ PUSHL ’ a, 
199808 ‘ F 7C¢ CALLS G_CHECKNP 
10 A203 «+O O7¢B «765 MOVL = #3 LS eTInAS. RESID T (RD) ; set ID to 3 
7C 76 SSETIMR_ 3 set one for later 
10 A2 9) dO 708 66 MOVL “BUR SE TIARAS REGIDT (RZ) : reset 10 te 1 
n> Woes 4 at 768 RET ss : return to user mode 
12A9'CF O00 FB ty i - CALLS #0,W*ERLBUF _DUMP ; dump any errors 
762 «778: 


<y 
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7E 774 ; test cancelling one kernel mode TQE 
7E 775 ; ° 
7E £6 :- 
43 77 NEXT_TEST 
7E STP27: | 
0004'CF 1B dO 7E MOVL oat CURR 
80 DD O7E PUSHL # 
OB1A'CF 1 FB O7E9 CALLS  #1,W*REG_SAVE 
OOAD' CF O1E8'CF DE oe 778 MOVAL W*KM, W°MODE 3; set the mode 
7F 779 MODE T0,B10,KRNL,NOREGS 3 get to kernel mode 
gyac' er 52 dO B16 £B0 OVL R2,W*WORK 5 eR 
2  O0081'CF DE 0817 781 MOVAL W*SET1,R2 : set SETIMR param pointer 
+e re SSETIMR_G (R2) ; make a kernel TQE 
8 7 SCANTIM_ S REQIDT=4 
08 784 ACMODE= =apaisc LKERNEL ; can it 
O82E 785 FAIL aed SS$_N 3 check for success 
00000000'8F oD 8 E PUSHL We oN NORM 
122D'CF 01 FB 4 CALLS #1 »W*REG_ CHE CKNP 
0839 786 ;+ 
0839 787 ; 
0839 788 ; test cancelling 2 kernel TQE's 
0839 789 ; 
0839 790; 
0839 791 NEXT_TEST 
0839 
ths STP28: 
0064'CF 1C dO 839 MOVL #28,W*CURRENT_TC 
00 DD O83E PUSHL 
OB1A'CF 01 FB 0840 CALL #1,W*REG_SAVE 
0845 79 SSETIMR_G (R2) ; make a kernel TQE 
pees 79 SSETIMR_G (R2) 3; and another 
DO 6085 794 MOVL “#PSLSC RNEL 
O0A9' CF bee 795 OP CANSCANT IRS. “ACMODE 3 set access mode 
085 796 SCANTIM_G W*CAN : cancel 2 kernel TQE's 
0861 797 FAIL_CHECKNP SS$_NORMAL ; check for success 
00000000'8F DD 0861 stay ASSS NORM 
1220'°CF 01 FB 0867 #1,W*REG ch HECKNP 
10 A 03 bo 086C 798 bat SETINRS. REQIDT(R2) 3; set ID to 3 
0870 799 SSE TIMR _G (R2 : make a kernel TQE 
+14 800 ;+ 
877 801; 
0877 02 ; At this point there should be the following TQE’s stilt 
pare 82 3 waiting to be killed: 
877 05 ; 1 user TQE ID = 
877 88 3 1 super TQE ID = 
{a4 8 : 1 exec TQE ID = 
a 88 : 1 kernel TQE ID = 
er 10 : We will now attempt to cancel all of these TQE's with | 
77 11 ; 1 CANTIM service. 
77 \§ 3 
77 13 ;:- 
of 14 NEXT_TEST 
77 STP29 


<" 


| 
— | 
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Q0004'CF 1D »b0 77 MOVL #29 ,W*CURRENT_TC 
DD 7¢ PUSHL 
OBIA'CF 1 FB 7 CALLS ‘ “REG_SAVE | 
15 SCANTIM_S REGIDT= 
BP ean coegeHb SRF WBAhPeSMEMEL hea geen | 
3 check for success 
000000'8F DD BF SHL Wes 
122D'CF 01 FB CALLS #1 eeneee CHECKNP. 
5 O14C'CF OD 99 18 W*WORK, restore R2 
9E 19 RODE FROM B10 NOREGS ; return to user mode 
12A9'CF 00 FB HHH p = CALLS #6,W*ERLBUF_DUMP + dump any errors 
AG : 
dBAG : 3 - now have to wait 1 second to see if any TQE's are still pending 
O8A4 824 ; that CANTIM's should have canceled. 
O8A4 825 ; 
O8A4 «88 § 3° 
0127'CF O046'CF DE OBAS' 8 MOVAL W*SETIMR,W*SERV_NAME 3; set service name 
08AB 828 SSETIMR_S DAYTIM=W* DELTA_1 1_SEC,- 
O8AB 829 EFN = +i ; wait a second for illegal TQE's 
O8BA 830 FAIL_CHECK SS$_NORM : check for success 
00000000'8F DD O8BA PUSHL OeeSeN MAL 
0B24'CF 01 FB O8CG CALLS #1 uREG. CHECK 
08¢5) = 831 SWAITFR_S EFN=#1 3 wait here 
OSCE Bag ; 
O8CE 83 : 
O8CE 834 : reset super mode handler to the original address and 
bare S32 : 3 dump any errors on the terminal that occured at AST disable time. | 
O8CE 837 ;:- 
O8CE 838 CLEAN_UP: 
0127'°CF 0031'°CF DE base 839 MOVAL W*DCLCMH,W*SERV_NAME : set service name 
03 BE 08D 840 CHMS 3 reset the CHMS handler 
12A9'CF 00 FB O8D7 841 CALLS %. W*ERLBUF _DUMP ; dump any errors 
O8DC 842 TEST END | 
0050'CF DD O8DC USH W*TMD_ADDR 
O04C'CF DD OB8E0 PUSHL W*TMNTADDR 
02 DD O8E4 PUSHL #2 
0048'CF DD O8E6 PUSHL W*MOD_M CODE | 
00000000 ' GF 04 FB O8EA CALLS tag mite BSSIGNAL 
0048'CF 01 1C 01 FO O8F1 INSV 4S tS$v_ INHIB_MSG,#1,W*MOD_MSG_CODE 
0048'CF DD O8F8 PUSHL 4 MOD MSG CODE 
00000000'GF 01 #4=FB OB8FC CALLS #1,G*SYSSEXIT | 


<u 
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SAT 
UT] 


Di 
oO 
m 
mm 


TTL ROUTINES 
BTTL SETUP_SUPER ROUTINE 


7m 


Routine to declare an initial CHMS handler from user mode. 
FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 

SCMKRNL_S W*SETUP_SUPER,ARGLST 


ARGLST = address of a pointer to a one parameter pact list conta 
the address of the entry mask of the CHMS handler 


INPUT PARAMETERS: 
ARGLST 

IMPLICIT INPUTS 
NONE 

OUTPUT PARAMETERS: 
Declares a change mode handler for super mode which must be 
reset to DCL in the users handler routine when the handler is 
no longer needed. 


IMPLICIT OUTPUTS: 


SAU EIN CO OD NOAOU EWN =O OONAOUES WN OOONOUS 


OOOCOCCOCOCOCOOSSOSOSOSCOSGOCOCSOOCSOSCOSOSOSOOSr DOCOCOCOOCOCOOOOCOoOO 1M 


WDOOOOOOOOOOOOOOWOVODOOVOOOVOVOOVOOOOM ODOWOOoDOoOowoooowowowowo 
AAA NAAAA. AAA AAAI AAA AA AAAI A AAAI AAW AINININANAWAIAIN AIUWIIWININI NINN 
GOOD 69 69 G9 69 C9 09 09 INI NSS NN ID DDD DO OA IIIT ES EE 


ae le ae le lo le eel lew lw) www wl al eleleolelelelelelelelelelelelelelelelelolelololelolejecloc «loo Mer 44) 


NONE 

‘ COMPLETION CODES: 

; NONE 

1 ; SIDE EFFECTS: 

a 

2 ON ENTRY: 

? KSP => | 9 USP => | 
4 83 ae i USER | 
9 0 i gp i i CALL 
30 91 BS 84 j 
3 4 6 : | FRAME | 
9 94 er | 
9 95 i fp i 
9 36 iSRVEXIT! 
2 9 Ps eens 
9 38 i pst! 
9 995 eee 
9 00 ;-- 


- 


00000000 


ee 4) 
(7) 
mon 


R 
I 

RETURN_PC: 
2 LONG 
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aN 


; storage for user return PC 


et the user return PC 
HAN ; save the handler address 
L_ SAVE FBCPP) «Re : get saved FP 


§ ‘ions 0 
ANDLER_PC: 
00000000 5 -LONG 0 ; storage for handler PC 
SETUP_SUPER: 
000C . WORD M<R2 
53 0 B 
1 


I ,R3> 
#PRS_USP,R3 

MOVL  SFSLSAVE_PC(R3),B*RETUR 
4 (APY LER 


wowowowowoowowoooowvown 


00' ADDL ae CMSTKSZ,R ; back over change mode stack frame 
62 2F'AF 5 MOVAB B*20$,(R2) >; set return address 

OA 5 INSV #<<PSL$C_SUPER@PSL$S_CURMOD>+PSLS$C_SUPER>, = 
04 A2 04 #PSL$S~CURMOD*2 4(R2) |; set current and previous mode to super 

50 00° v0 MOVL S*#SS$~NORMAL ,RO ; set correct return code 
04 208 RET 3; enter super mode 

7E D4 1 some: Wee, ; set up dummy PSL 

35°AF 6E FA CALLG (SP),B*30$ 3; create initial call frame 


«WORD “M<> 3; entry mask 
0 PUSHL #0 ; push a dummy parameter 
OBIA'CF O01 FB 


WOODOODOOOOOOOOOOOOOOOOOOOOOO DS 


4 
? 

8 

9 

0 

§ 

4 

§ #PSLSV_PRVMO 
8 

9 

0 

5 

4 

5 

6 

8 


COOOOOOOOVOOVOVOOVOVDOVOVOOVOOOOOOOO 
PAEAEARAAP AAA AAA AA ARAM & AAAI AIWIAIPOPOPIPININININ | | —DODDOOCOO cm 


PUWANAAI NAINA AAAI AAAI AAI OO HTM ET ON END ON MS NOVUWWIO~ANWW U~< 


=] 
— 
pm Dam le lem lew lw lol w lolol ala olololeloleolaleleleleleleolelelelaloelololelelelelelelelelelalelelolo) 


| 
| 
; get the user call frame address | 
N_PC ; 


CALLS #1,W*REG SAVE ; Save the registers 
? SDCLCMH_S @HANDLER PC,W*PRVHND1,#0 ; set real handler 
FAIL_CHECKNP SS$_NORMAL : check for success 
00000000'8F oD PUSHL #SS$_NORMAL 
122D0°CF 01 FB CALLS  #1,W*™REG CHECKNP 
03C00000 8F DD 929 PUSHL #<<PSL$C_USER@PSCSV_CURMOD>=- 
930 '<PSL$C_OSER@PSLSV_PRVMOD>>; set return to user 
Al AF OD 931 PUSHL RETURN_PC ; set the return PC 
02 336 R ; return to user mode 
93 -SBTTL AST SERVICE 
934 ;++ 
935 ; FUNCTIONAL DESCRIPTION: 
o39 3 Routine to service AST's for the DCLAST service tests. 
335 ; CALLING SEQUENCE: 
939 ; AST delivery 
9 949; 
9 941 ; INPUT PARAMETERS: 
9 208 $ 4(AP) = AST parameter 
9 9435 ; ASTOK = AST flag byte 
9 944 ; ASTPAR1, ASTPAR2 = expected AST parameters 
, oe? ; ELBP = error log buffer pointer 
9 348 ; OUTPUT PATAMETERS: 
9 948 ; possible errors logged in the ERLB buffer 
96 949 ; 
96 o29 i-- 
96 95 
96 326 AST1 
001C 096 2 -WORD “M<R2,R3,R4> 
53 128° CF D 34 MOVL  W*ASTPART,R3 > save the parameter 
1 B's D 96A 955 DECL W*ASTPAR1 : set up for the next AST 
04 AC 3 D1 O96E 956 CMPL R3,4(AP) ; is this a good AST param.? 


sb 


53 4 
1 

04 AC 
1390' CF 
54 C 
4 

84 

8 801 
OC4D'CF 


05 01 
134B'CF 


i 


ze 
; 


00 
4D'CF 
03 


4 


33°CF 
00 
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“am iocvovcVvwoo"”" ~-o 


oo orm 


04 


S 
V 
? 
? 
? 
? 
? 
3 
9 
9 


COOCCOCOCOOOOOOOOOCOCCOoOO MN 
wooooowowvowowvownowowonownownowvowvnn9o 
Wow 


oO 
~m 
o 


VIEW OOONOAUES WT OOOonN 


SN NNN NIA AAA AAAAAOIM 


~o 
~_™N 
ono 
Ww 
oO 
wn 


WwOWOOOOOOOOOVOOOOOOOOO 


C 

£48 
“M<R2,R3,R4> 
W°ASTPARG RS 
RS ARCAPD 

£36 

STEP 
Ro 

#3, (R4)+ 
4(AP), (RG) 
R3,(R4)+ 
W*ASTPRM, (R4)+ 
(R4) 
R4,W*ELBP 


W*ASTOK, 308 
#0,W*AST_FAIL 


-W*STORE 
W*ELBP 


SEP=1 
SEP=1 


9B 04:30 
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br if yes 


; br if no 


save the parameter 

set up for the next AST 
is ¥h s AST param OK? 
br if yes 


save the step information 
get error log pointer 
save the longword count 
save received data 

save expected data 

save — variable 

set a new terminator 
reset the buffer pointer 


should AST have occured? 
report a failure 


vm 
m> 


z7- 
ee 4) 
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we 
Cc 


0 .SBTTL SUPER_MODE 
++ 


: : FUNCTIONAL DESCRIPTION: 
: Routine to handle the CHMS instructions. 


; CALLING SEQUENCE: 
; CHMS aN 


; INPUT PARAMETERS: 
: SP=> suns parameter 


PSL 
The CHMS parameter can be one of the following: 


DOVUP PIP IPIPMPUPDNPDPINIMPIPDPPIPIPTIPIPIPIPINPINPIFIN OO =< 
ono woowowowowvowowowovovowno 
oo OOOO OWMWWOWWWonwnc 
MEW 0 OO NOUS 
Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge See 


995 ; 1 = execute super mode AST tests 
p44 : § = execute a $SETAST_G to Meas » Super mode AST's 
: = execute a SDCLCMH_S to reset the CHMS handler to DCL 
8 : 4 = execute a SSETPRA_S & SSETPRA_G service 
1008 : 5 = execute the SCANTIM_S & SCANTIM_G tests 
1001 ; OUTPUT PARAMETERS: 
1 8 : NONE 
0 1004 
0 1005 SUPER_MODE : 
50 8E 00 1 § MOVL (SP)+,RO 5 get CHM parameter off the stack 
a a a 193 108 CASEB RO,#1,45 ; do the right thing 4 
000A" 1908 «WORD 20$-10$ Cs 
0000 0988 1319 «WORD 10$-108 cs 
008D' 098D 1011 ~ WOR 40$-10$ cs 
0083" O9BF 1916 .WOR 50$-10$ cs 
OOFF* 09C1 101 .WOR A60-10$ cs 
bate 191 20$: Cs 
0127°CF OO3F'CF DE O9C3 1015 tt “SETAST,W*SERV ; set service name pointer Cs 
007D'CF D4 O9CA 19i8 CLR USE ToSEIASTS ERB rte ; set parameter List to disable cs 
43 101 SSETAST G W*SET ; disable super mode AST's C1] 
907 1018 FAIL CHEE Ss$ WASSET 3; check for success Cl 
00000000'8F DD 0907 ¥SS$ nWASSET 
122D'CF 01 FB O9DD atts Al x” ly CHECKNP ( 
0127°CF OO38'CF ODE ees 1019 MOVAL W*DCLAST ww seRy set service name pointer 
9E 1020 SDCLAST_S W*AST1.#-2,#PSLSC ~SUPER declare super AST #1 
9FC 1021 FAIL =CHECE NE SS$‘N NORMAL and check for success 
00000000'8F DD O9F vs S$ NORMAL 
122D°CF 01 FB OAO CAL Us Wi NEG CHECKNP 
Gort cr D6 OAO? 1 é INCL CALLS at veh ASTPRM —s;:_ set new parameter 
O75'CF 0D AOB 1 DECL W*DCL*DCLASTS_ ~AEMODE 3 set to super mode 
AOF 1024 SDCLAST_G W* ; declare super AST #2 
aie 1025 FAIL. CHECKNP sss ; and check for failure 
99000" er DD OA1 USHL a3 NORMAL 
"CF 1 FB ait CAL Ls ape REC CHE CKNP 
0127°CF  OO3F'CF oF A 1 § MOVAL WSETAST W*SERV_RAME 3 set service name pointer 
O1S3"CF 01 A2A 1 MOVB #1,W*ASTOK ; AST's are now Lega 
Age 1 8 SSETAS #1 : enable super mode AST's 
A : 1 FAIL_ aad 1 SS$_WASCLR 3; check for success 
00000000 ' 8F OD A ¥Sss -WASCLR 
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122D'CF 0 CALLS #1,W*REG_CHECKNP 
oops 8 9 ses BRW A70 7 3 carry on 
0127'CF OO31'CF ODE 1 § MOVAL W*OCLCMH yesenv NAME 3; set service name pointer 
1 SDCLCHH S aPRVHN wel t reset the CHMS handler for DCL 
1034 L.CHECK Ss abt’ 3; check for success 
00000000' ‘ DD wits NORMAL 
B24' oe FB CALL eaten 
31 1035 BRW 3 carry on 
1 50$ 
1 $ SSETPRA_S rr ackaa ADR,#PSLSC -KERNEL ; check _S and mode maximizing 
1038 FAIL_CHECK SS$_NORMAC 3 check success” 
29990000" st DD pusie #SS$_NORMA 
0B24' 1 FB CAL Toe #1 ,W*REG_ CHECK 
2 OD 1039 PUSHL #PSL$C_SUPER ; set expected mode 
1313°CF 1 FB 1040 CALLS #1 stb ouER CHECK ; eigen effect 
ts ai 43 1041 INCL W*HANDLER _ADR ke address unique 
OO99'CF O138°CF OD 1 +g MOVL se ADR, W*SET2+SETPRAS. ASTADR ; set new address 
104 SSETPRA_G W*SET : chéck _G and mode maximizing 
1044 FAIL_CHECK SS$_NORMAL : chock for success 
00000000'"8F ODD PUSHL ~ #SS$_NORM 
0B24'CF 01 FB CALLS aug W*REG_ Check 
02 oD 1045 PUSHL #PSL$C_SUPER ; set expected mode 
1313'CF 01 FB 1938 CALLS #1 see aoeR CHECK 3; check effect 
0138°CF 6 104 INCL W*HANDLER R_AOR 3; make address unique 
0061 nee BRwW A7 3 carry on 
00000022 He ago STEP=34 
1981 SSETIMR_G (R2) ; make a super TQE 
1 26 SCANTIM_ g REQIDT=# 
105 ACMOD DEs#PSi $c _SUPER =; can it 
1054 FAIL = CHECK SS$_NORMAL ; check for success 
00000000'8F ODD PUSHL ~ #SS$_NORMAL 
OB24'CF O01 FB 1055 28 CALLS #1,W*REG_CHECK 
1936 : 
1057 ; cancel 2 super TQE's 
138 
1060 NEXT_TEST 
STP35 
0004 'CF 3 b0 MOVL #35,W*CURRENT_TC 
DD PUSHL 
OBIA'CF 1 FB CALL #1,W*REG_SAVE 
1061 SSETIMR_G (R2) ; make a super TQE 
1 $¢ SSETIMR_G (R ae 3 and another 
02 »v0 106 MOVL “#PSL 
OOA9' CF 1064 U"CANSCANT IMS. _ACMODE ; set the access mode 
1065 SCANTIM_G W*CAN 3; can both of them 
1066 FAIL_CHECK $$$ NORMAL ; check for success 
obSinp00" ee of 43 Push f ot5e NORA, 
10 A2 3 0 1067 MOVL pat te TIMRS, WEGIBTIRDS ; set | o 3 
1 os SSETIM ; set one “for Later 
10 A2 i dO 1 : MOVL “#1, SETIMRS_REQIDT(R2) ; reset ID to 1 
11 1070 BRB a70 > carry on | 
| 
| 
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A70: 
REI ; go back to us 
ug SSBTTL REG, SAVE . seat Mee: 

; FUNCTIONAL DESCRIPTION: 

Subroutine to save R2-R11 in the register save location. 
CALLING SEQUENCE: 

PUS 3 save a dummy parameter 

CALLS #1,W*REG_SAVE ; save R2-R11 


INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
NONE 
0 oe 
OFFC raseag “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
OOOC'CF 14 AD 28 ee MOVC #40) 7 *K14CFP) .W*REG. SAVE_AREA ; save the registers in the program 


.SBTTL REG_CHECK 


p++ 
3; FUNCTIONAL DESCRIPTION: 

Subroutine to test RO & R2-R11 for proper content after a service 
execution. A snapshot is taken by the REG_SAVE routine at the 
beginning of each step and this routine iS executed after the 
services have been executed. 


CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX ; push expected RO contents 
CALLS #1,W*REG_CHECK ; execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: 
possible error messages printed using SPUTMSG 


COOO0O0 000 OWDWOWOOOOO0O VN NN 


ONAN WIN 0 OD NONE OC ODNOU Ew 


SOOO 


a dd ad kd et dd ed ed a a 2 tt 


a at ee nd tt dn 8 a tt a 8 tt 


RoRONORONUNUNUN 2 3 3 = — DOO ODODOO00 6 


SOME AN OOD NA UE WIN OOONOUE WIN O 


REG_CHECK: 
OFFC 4 «WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
50 O4 AC 01 6 CMPL 4 (AP) ,RO ; is this the right fail code? | 
_ — oa A BEQL 10$ ; br if yes 
50 oD C PUSHL R ; push received data 
AC 0D . PUSHL 4(‘AP) 3 push expected data 
01 a6 OF PUSHAL W*EXP ; push the string variable 
0B88* CF >; vo 5 CALLS #3,W*PRINT_FAIL 3 print fhe error message 
0050'CF 2a'CF 43 A MOVAL ur fest mop FAIL,W*TMD_ADDR ; set failure message address 
0048'°CF 03 02 =F a 108 INSV #ERROR,#0,93,W*MOD_MSG_CODE ; set severity code 
OO00C 'CF 14 AD 8 ; rt CMPCS #4910,*X14(FP) ,W*REG_SAVE_AREA ; ghect all but RO 
6 4F BEQL ; br if O.K. 
56 53 O000000C'BF C 51 SUBL3 #REG_SAVE_AREA,R3,R6 ; calculate the register number 


sls 


OOC3'CF 


C3'CF 


0081 ' CF 
"CF 


0888 4 
te Go2a'r 
0048' CF 3 0 2 


O1SC'CF 


12E6°CF 


0050°CF 


19 
04 AC 
11 


00 
2A'CF 
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DIVL #4 ,R6 

ADOB at R6,W*REGNUM § a it in the sores 

Bi et ackup to register boundrys 

PUSHL 2h i; push register number 

PUSHL HY i; push received data 

PUSHL (R35) 3 push expected data 

PUSHAL W*REG ; set string pntr param. 

CALLS #4,W“°PRINT_FAIL ; print the error soonaas 

MOVAL w*fEST _MOD-FAIL,W*TMD_ADDR ; set failure message address 
208 INSV #ERROR7#0,93,W*MOD_MSG_CODE 3 set severity code 

RET 

-SBTTL PRINT FAIL 


+ 
FUNCTIONAL DESCRIPTION: 
Subroutine to report failures using SPUTMSG 


CALLING omens = 
Mode #1 


PUSHL pxpectes Mode #2 PUSHL REG_NUMBER 
pus RECEIVED PUSHE EXPECTED 
RING PUSHL RECEIVED 


CALLS 3! UPRINT. WFAIL 


PUSHAL STRING_VAR 
CALLS #1,W*PRINT_FAIL 


INPUT PARAMETERS: 
Listed above 


OUTPUT PARAMETERS: 
an error message is printed using SPUTMSG 


PUSHAL STRING 
CALLS ve WePRINT FAIL 
Mode #3 


Be Ge Se Se Se Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Se Se Se 


PRINT_FAIL: 
;WORD “mcr 
SPUTASG.S $ W 
BEQL ; 


108 
CHE (AP) , #1 


ce me ee ee em me a a a ad a 8 od 8 = 8 8 = = 8 8 2 = 3 SS 
ee a a a a a a 8 = on = od od = 8 = = = = 8 8 ws = = 
CD09 0900 09 SIN NN NS DDD DDD ADD. TU BB BB BB BBB AAAI III 


PP DODANE WAIN 0 OD NA UNE AN SO OOD NIA NE WIN O OD NOUN EWI 0 OD NONE UO OOD 


oR3,R4,R 
$FAO_S rc 1 WPAESSAGEL, W*MSGL ,ATEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 


4 (AP) yBseeeciote 


10$: 
20$: 
MOVL 

SPUTMSG_ $ w*msGv 
BRB 40$ 

30$: 

sone SPUTMSG_S W*MSGVEC 

"CALLS = #0, WAMODE I 

MOVAL 


w*festT im Pall. w*TMD_ADDR 


“print the message 
8 ie . register message? 


is this. just a message? 


BEQL ye 
$f A0_S yigs2. ,W°MESSAGEL,W°MSGL,4(AP), sche), 4(AP) ,12(AP) 


; goto output message 


sFA0. $s eee oW*MESSAGEL ,W*MSGL ,4(AP), 16(AP), BC AP) ,4( AP), 16¢(AP) ,12(AP) 


goto output message 


; save string address 
; print the message 
; skip the other message 


; print the message 


: sdone TY the mode 
ilu 


: set fa 


re message address 


sist 


0048'CF 


5 
qpren SERVICE TESTS csuce $.C.) es ae 9 90:38:18 y 


Hs 1183 INSV WERROR ,#0,#3,W*MOD_MSG_CODE 
4B 1186 RET 


AX/VMS Macro V04- 
UETPSY.SRCIJSATSSS26.MAR; 1 


; set severity code 
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SATSSS$26 = SAT 
y00s800 REG_C 


~SBTTL REG_CHECKNP 


"FUNCTIONAL DE ving thy on | 
Subrou ° je test RO & R2-R11 for propery content after a service 
execut en without printing it. A sna is taken by the REG. SAVE routine a 
beginning of each step and this routine is executed after the 
services have been executed. This routine collects the error 
latorastien in buffer ERLB instead of printing it. 


CALLING SEQUENCE: 
PUSHL  #SS$_XXXXXX ; push expected RO contents 
CALLS #1,W"REG_CHECK ; execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: 
possible error messages logged in buffer ERLB which are printed 
using routine ERLBUF_DUMP. 


Error packets are in the following form: 


Oc 


>) 2 2s 2 


PPP AMAA AAAI OPIPONPIPININININIDS 2 OO PP fF POCO ODOOCOOCOCOOOOOOOOOOO@@ 


- Step # ‘a 


; Mode name pointer! 


: long word count 
IN/\/\/\/\/\/\/\/\E 3"4 parameter long words 


nn" See Oe Se Be Be Be Se Se Be Be Be Be Se Be Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se re 
‘ 
t 


PT eee eee eee ne 


OV OVOV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OF OF OOOO OVO OVO OP OOO OVO OVD 
PAO OVP ITF PB VFS SS 9 9§ 9 FB FP MOOOOOOOOOOOOOOAOAOOOOOOOOOOOOOOOOOOOOAO > a 


Ot tt tt 9 9 2 4 -4§ AQODTOO OOOO OOOOCOGCOCSCOCCOCOVOCOVDOOCOCOOOOOCOOOOOOCOCOCOCO IM 


PURO ODN NEW 9 OD NONE WIN OOD NO NEW OOD NOAM EW - OOONOU EU O 


ee a ce ce ee dd od od 8 sd dd 8 8 


LAG 
00 BYTE 0 ; error flags are BITO = 0 means no errors in the bu 
ELBP 3 BITO = 1 means errors in the buffe 
00000C¢51° —- ADDRESS ERLB ; error log buffer pointer 
0000122D 3 -BLKB 1500 ; error log buffer 
ReG_ CHECKNP: 
OFFC ~ WORD rs fe . R4,RS, me Hh R8B.RO,R10,R11> 
50 O04 AC 01 CMPL oie is this the right fail code 
3 13 BEQL tos : : br i yes 
1390'CF F CALLS #0 ¥stose STEP : store step information 
52s FAOF CF MOVL éLB ; get the current error Log pointer 
ee 50 MOVE g nthe) ; Save the long word count 
D 4 MOVL RO, (R2)+ ; Save received status 
oS ae D 4 MOVL CAP)» (R3)¢ ; save expecte etetus 
at "$ DE 4 MOVAL Waser ce + ; save the string variable 
D4 4 CLRL (R2) : oes Am terminator 
tor 8 dO VL R2,ELBP he buffer ppiater 
9950" boul of MOVAL wW*fEST Ad rghit iota. ADDR ; set failure message address 
0048' CF 2 sF INSV #ERRORTS MOD_MSG_CODE’; set severity code 


=e j 


5 
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v04 REG. CHECKNP Br eee ree Be:85i15 LORE PES Bacte vote ee ans: 20° 32, 
1 ; 1245 108: 
OO0C * CF 14 AD ‘ #3 } 1 ¢$ gnecs M4410, °X14(FP), ara ts FAVE AREA ; check all but RO and R1 | 
1390'CF § FB of 1 ‘8 CALLS #0,W*STORE_STEP ; store step information 
5 F9D8 CF 1 124 MOVL oF oR ; get current error log buf pointer | 
4, 1 28 1 29 MOVE $*#4,(R2)+ ; set longword count 
0000000C'BF C3 1279 1 SUBL3 #REG. SAVE_AREA,- 
6 3 127F 1 § R35,R ; cale reg number 
6 4 C6 1281 1 DIVL $*#4,R6 3; make it a longword count 
82 : C1 1284 1254 ADDL PH (R2)* ; correct for RO-R1 and save 
6 09 1288 1255 MOVL = (R1 » (RE) t save received results 
63 oO 1 1 § MOVL (R3),(R2)+ i save pag he r spite 
82 CF ODE 1 MOVAL W*REG,(R2)+ > save str 
9 D4 (1 1 } CLRL (R2) 3; set the t tere ain 
F9B3 ff DO 1295 1 MOVL R2,ELBP 3; reset the buffer pointer 
0050'CF O2A'CF DE 129A 1260 MOVAL w*fEST_moD FAIL,W*TMD_ADDR ; set failure message address 
0048'cF 03 OO O02 F | Al 61 os INSV #ERROR=#0,83,W*MOD_MSG_CODE 3 set severity code 
04 12A8 #1 88 RET ; bail out 
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; -SBTTL ERLBUF_DUMP 

FUNCTIONAL DESCRIPTION: 

Routine to check for errors in the error log buffer and 
report any that are there. 


CALLING SEQUENCE 
CALLS #0,W*ERLBUF_DUMP 


INPUT tyre diy 
UO: 9 for no errors logged 


FLAG Bit for errors log oge 
if errors Logged then buffer ERLB must contain legal format errors 


OUTPUT PARAMETERS: 
NONE 


ERLBUF _DUMP: 
~WOR “M<R2,R3,R4> 
BLBC FLAG, 03° ; br if no errors to report 
108 MOVAL ERLB-R R2 ; set up buffer pointer 
TSTL (R2) ; any a errors? 
BEQL 30$ 
MOVL (R2)+,W*SERV name ° 3 "reset  aervien name 
MOVL (R 3+ ue CURRENT TC ; reset step # 
MOV (R2)+,W*MODE reset the mode 


L 
MOVZBL (R 2? : get the longword count 
MOVL R3,R ; and save it 


20$: 
PUSHL (R2)+ 3 push a parameter 
SOBGTR R3,20$ 3 and push them all 
CALLS R4,W*PRINT_FAIL ; print the failure 
30$ BRB 10$ ; do the next one 
MOVAL W*ERLB,W*ELBP ; reset the buffer pointer 
CLRL W*ERLB ; set fresh terminater 


RET ; bail out 


v04- Page 35 
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X/V acro 
ETPSY.SRCIJSA 
~SBTTL MODE_ID 


FUNCTIONAL DESCRIPTION: 
Subroutine to identify the mode that an exit handler is in. 


+ 
7 


CALLING SEQUENCE: 
CALLS  #0,W*MODE_ID 


INPUT PARAMETERS: 
MODE contains an address pointing to an ascii string desc. 
of the current CPU mode. 


1D 
12E6 1307 
12E 1 8 
12E6 1 
12E6 1310 
1266 1311 
1266 1 1 
1 5? 131 
12E6 1314 
1266 1315 
1266 1 1 
1566 131 
1 Ee 1 i§ OUTPUT PARAMETERS: 
12E6 1320 NONE 
12E6 1321 
1 1g = 
12E6 1324 MODE_ID: 
003C 1266 1325 .WORD Bar Gat Pur R5> 
1268 1326 $FAO_S W°CSS,W*MESSAGEL W°MSGL,MODE ; format the error message 
06 ! 21 : SPUTASG.S weMSGVEC ; print the mode message 
13 13 4 on -SBTTL POWER_CHECK 
131 1331 ; FUNCTIONAL DESCRIPTION: 
131 1 3 5 Subroutine to check the effects of the SETPRA system service and 
! ; ! tz 3 report any errors that might occur. 
131 1 3 3; CALLING SEQUENCE: 
131 1 $$ 3 PUSHL #PSL$C_?7??? 3 push expected mode 
13 ! : CALLS #1,W*POWER_CHECK 
131 1 3 ; INPUT PARAMETERS: 
131 1329 : 4(AP) = expected access mode 
131 13¢¢ ; OUTPUT PARAMETERS: 
131 1345 ; NONE 
131 1344 ; 
1313 1346 
131 1347 POWER_CHECK: 
0060 1313 1 rt: -WORD “M<R5,R6> 
56 00000000'EF DE 131 134 MOVAL CTL$GL_POWERAST,R6 ; set checking address 
0138'CF 66 D1 131C 1 29 PL Ro) -U"HANOLER ADR ; is the address there? 
, 33 tin 4 EQL ~=-:'10 : br if yes | 
66 ODD 1 : 1 28 PUSHL (R6) ; push received data 
a BE DD 1 135 USHL W*HANDLER_ADR 3 push expected data 
1A3'CF DF 1329 1 2 PUSHAL W* ; push string variable | 
F856 CF 03 =6=FB ! D : 2? 10$ CALLS #3,W*PRINT_FAIL 3; print the error 
04 AC 04 a6 3 ' 3 ! 3? cw ain) ACaP) 3 is fhe eete correct? 
7E 4 A6 JA 1339 1 38 MOVZBL 4(R6),-(SP) 3; push rbeotved data 
7E 04 AC 9A 133D 1360 MOVZBL 4(AP),~(SP) : push expected data | 
orser er DF 1341 1 a PUSHAL W*MS : push string variable 
F83E CF 3. «(CFB ! ri ' 86 208 CALLS #3,W*PRINT_FAIL ; print the error 


SATS 
v04 


6 


= SATS SYS 
POWER_CHEC 


04 134A 


N 5 
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1364 RET 


“SEP=1 
“SEP=1 


38 


4 
4 


p 


0 
4 


40:15 
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; bail out 


$$s2e.man:1 "29° 22) 
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5005888 AST_FAIL ae ett $2: 48:18 LOE Tbey eRe agay ess oe.MAR:1 . (4) 
} rt } ef Mp «SBTTL AST_FAIL 
1348 1368 ; FUCTIONAL DESCRIPTION: 
: is i 8 3 Subroutine to identify an AST failure. 
1348 1371 : CALLING SEQUENCE: 
: rt ! if 3 CALLS #0,W*AST_FAIL 
1348 1374 : INPUT PARAMETERS: 
1348 1375 ; MODE contains an address pointing to an ascii string desc. 
1348 1 8 ; of the current CPU mode. 
1348 13577 ; CURRENT_TC contains the current test case number. 
: rt ! 4 ; ASTOK contains expected or unexpected flag. 
1348 1380 : OUTPUT PARAMETERS: 
1348 1381; NONE 
1348 1 § ; 
1348 1384 
1346 1385 AST_FAIL: 
003C 1348 1386 -WORD “M<R2,R3,R4,R5> 
1390'CF 00 FB 1368 1387 CALLS #0,W*STORE STEP 3; store step information 
52 FBF7 CF DO 1 26 1388 MOVL W*ELBP,R2 ; get error log buffer pointer 
82 01 90 132 1389 MOVB #1, (R254 : save the longword count 
07 O133°CF 01 #+=€—1 135A 1390 BBC #1,W*ASTOK,10$ 3; br if unexpected exception 
82 O121'CF DE 1360 1391 MOVAL W*CS6,(R2)+ i; save the string variable 
0S 11 1398 ! 35 108 BRB 20$ ; skip other message 
82 OOED'CF DE 1367 34 a MOVAL W*CS4,(R2)+ ; save the string variable 
$8 D4 136C 1332 : CLRL (R2) 3; set a new terminator 
FEDA CF 5 4 1366 1337 eave R2,W*ELBP 3 reset buffer pointer 
Ist 1238 — -SBTTL ILEGAL_TIM 
1374 1401 ; FUCTIONAL DESCRIPTION: 
13ce 1386 ; AST routine to report an illegal TQE. 
1374 120 > CALLING SEQUENCE: 
132% 1382 ; Entered via a SETIMR AST 
1374 1407 : INPUT PARAMETERS: 
1374 1408 ; MODE contains an address pointing to an ascii string desc. 
1374 1092 $ of the current CPU mode. 
1374 1410 ; CURRENT_TC contains the current test case number. 
: iS 1ou) 5 ASTOK contains expected or unexpected flag. 
1374 1218 t OUTPUT PARAMETERS: 
1374 1414; NONE 
1374 1415; 
Wt HeIg F- 
1374 1018 ILEGAL_TIM: 
003C 1374 141 ‘ “M<R2,R3,R4,R5> 
1390°CF O F 1376 14 9 CALLS #0,W*STORE STEP ; store step information 
52 FSCE CF DO 1378 14 MOV W*ELBP : get erl buf pntr 
82 Of 90 1380 1422 MOVB #1, (R25+ ; Save the longword count 


S 
L 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WAWINAW AA AAA AA AAAI A.A AANA AAAS 


DP F FP DODD DODDDDDDODODDODODODOOO0OMM@Q@D 1H 
SBDA—ANNCCOCCOCSCSCSSCOOCSOOOOOCCO™ Faw 
to 8 wo 8 2 a tt 
PN eee 


SVT BS BB BB EE INI NIIIIInononononen) 


—OODNAMNES WN - OOODNAUE WI - OOONOUEW 


C 6 
SERVICE TESTS (SUCC S.C.) 16-SEP-19 AX/VMS 
met v4 48: 18 YueTPSY. SRCJS ayeesoe. MAR; 1 —_ 
MOVAL WSS. (Reds ; save the string variable 
CLRL R ; set a new terminator 
MOVL R2,W*EL SP ; reset the buffer pntr 


R 
~SBTTL STORE STEP 


FUNCTIONAL DESCRIPTION: 
Routine to store step information in the error log buffer. 


CALLING SEQUENCE: 
CALLS #0,W*STORE_STEP 


INPUT PARAMETERS: 
ELBP = current errlog buffer pointer 


OUTPUT PARAMETERS: 
FLAG = error logged flag 


STORE _STEP: 
-WORD “M<R2> 
BISB2 = #1,W*FLAG 


W*ELBP,R2 
MOVL  W*SERV NAME, (R2)+ 
MOVL WaCURRENT TC TC, (R2)+ 


ti R2,W*ELBP 


set the error ,ogged flag 
get errlog buf pntr 

Save the service name 
save the step number 

save the mode 

reset the errlog buf pntr 
return 


sis" 8 
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0:19 CUETPSY.SRCIJSATS 
MOD_MSG_PRINT: 


(ARR RRAARARSASALAAALA ALAS ESELA LEASE SEES EERE SESE R RSET REE R SECO SG 


* ® 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
* (USING THE PUTMSG MACRO). * 

® 


-ARBRARRAAAAAASAASAAALAALSASAEALASASSA SALES SESE EERE REESE RSE SESE ESSE 


PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR, TMD -ADDR> PRINT MSG 
RSB 5 aie D RETURN TO CALLER 


3 * RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ....° MACRO 
» END SATSSS26 


a i a a a td 8 8 = 2 = 8 3 2 SS 8 8 I 
NN eee 
20009 SII NINN NINA AA AAA AAAOUUIMNNINIIN 
RM OOWONAN EWN OO ODNAUE WR OOONOUE WN 
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CHMRTN: 
b PRABRASAAALALALALLALALALALALELESCE ASSES ESE EEE SESE E SESE ASSES EEC EERE E ELS 
§ tt 
3 CHANGE MODE ROUTINE. THIS pROUTINE GETS CONTROL WHENEVER * 
; A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED « 
3 BY THE MODE MACRO ('TO' OPTION). IT MERELY * 
; A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS * 
; THE EFFECT OF RETURNING TO THE END OF THE MODE « 

; 3; * MACRO EXPANSION. * 
. a ® 
: PARRASRASAASALALAAAAAALESASAESASLALLASLESSLASEELESAEAEESESSS ESL CASES ESE S SY 

0000 i : .WORD 0 ; ENTRY MASK 
Q00000SD'FF 17 ; jmp @CHM_CONT : RETURN TO MODE MACRO IN NEW MODE 

3 

3 
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UETPSY.SRCJSAT 
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SETPRAS_ASTADR 
SETPRAS -NARGS 
SE SOPER 


STP9 
STS$V 
SUCCESS 
SUPER _MODE 
SYSSCANTIM 


SYSSPUTMSG 


INHIB_MSG 
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temeeee erm eer eo cea} 


! Psect synopsis ! 


bone ser ers eocsee=} 


tm o moon ewe See eee enema newman + 


! Performance indicators ! 
+ 


eeeee reece eee een weer cee ec + 


o 
v 
td 
“4 
~. 
3 

u 

Mm 


Page faults 


Lapsed Time 


Initialization 3 80:88 88.97 0:00:0 “50 
Command processing 134 00:00:00.71 He 78 
Pass 380 0:00:1 69 0:00:22.64 
Symbol table sort 0 0:00:00.87 0: 8: 91 
Pass 2 29 8: 704.46 3: :05.74 
Symbol table output 2 :00:00.16 0:00:00.17 
Psect synopsis output 8: : 8-86 BB BR 0.04 
Cross-reference output :00:00.00 0:00: $-00 
Assembler run totals 87 0:00:19.00 00:00:32.78 


ase working set_Limit was 1950 pages. 
3335 bytes (163 pages) of virtual memory were used to buffer the intermediate c 
There were 30 pages of symbol table space gt Locat : to hold 561 non-local age 46. int symbols. 


482 source Lines were read in Pass 1, produci ng 6 object records in Pass 
65 pages of virtual memory were used to define 61 macros. 
pawn we mere nme rear r err ew ese + 


! ; Macro library statistics : 


Macro Library name 


RTE Seat ETP.MLB; 1B 
5$DUA28:(SYSLI TBISTARLET. hip: 2 4 
TOTAcs call Libraries) 5 


825 GETS were required to define 58 macros. 
There were no errors, warnings or information messages. 


AX/VMS Macr 
UETPSY.SRC 


° 
JSAT 


PSECT name Allocation PSECT No. Attributes 

. S-s 8 ( 3 0 < ) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABS ( a 1 -) NOPIC USR CON ABS LCL NOSHR EXE RD 
RODATA 0 A ( 554.) ¢ ( §:3 NOPIC USR CON REL LCL NOSHR NOEXE' RD 
RWDATA 3 60 ( 3°} ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATSSS26 1305 (¢ 5077.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD 


MACRO/LIS=L1S$:SATSSS26/0BJ=0BJ$:SATSSS26 MSRC$:SATSSS26/UPDATE=(ENHS: SATSSS26) +EXECMLS/LIB*+SHRLIBS$:UETP/LIB 
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NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
NO L 


WRT NOVEC LONG 


= 
en 
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